home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aab.d64 / pop.colors < prev    next >
Text File  |  2007-02-28  |  4KB  |  118 lines
  1. 0170 ╨╥╧├ POPOVER ├╠╧╙┼─
  2. 0180   //COPYRIGHT 1986 LEN LINDSAY
  3. 0190   // ORIGINAL BY LEN LINDSAY
  4. 0200   // REVISION BY
  5. 0210   ╔╬╘┼╥╥╒╨╘ //INTERRUPT OFF WHILE DOING INTERRUPT NOW
  6. 0220   ╒╙┼ GRAPHICS
  7. 0230   TEXTMODE:=INQ(13)
  8. 0240   GRAPHMODE:=INQ(7) //2=MULTI
  9. 0250   ╔╞ GRAPHMODE<2 ╘╚┼╬ GRAPHMODE:=1-INQ(14) //0=SPLIT//1=FULL HIRES
  10. 0260   ╘╥┴╨ ┼╙├-
  11. 0270   SETUP
  12. 0280   ╒╙┼ SYSTEM
  13. 0290   ─╔═ START'SCREEN$ ╧╞ 1505
  14. 0300   GETSCREEN(START'SCREEN$)
  15. 0310   ╔╞ ╬╧╘ TEXTMODE ╘╚┼╬ TEXTSCREEN
  16. 0320   CLEAR'KEYS
  17. 0330   POPUP
  18. 0340   SETSCREEN(START'SCREEN$)
  19. 0350   ╔╞ TEXTMODE ╘╚┼╬
  20. 0360     TEXTSCREEN
  21. 0370   ┼╠╙┼ 
  22. 0380     ╔╞ GRAPHMODE ╘╚┼╬
  23. 0390       FULLSCREEN
  24. 0400     ┼╠╙┼ 
  25. 0410       SPLITSCREEN
  26. 0420     ┼╬─╔╞ 
  27. 0430   ┼╬─╔╞ 
  28. 0440   CLEAR'KEYS // OPTIONAL LINE
  29. 0450   ╔╬╘┼╥╥╒╨╘ POPOVER
  30. 0460   //
  31. 0470   ╨╥╧├ POPUP 
  32. 0480     COL:=╥╬─(3,15) // <<<===START COL
  33. 0490     CURRENT'ROW:=╥╬─(2,12) // <<<=== START ROW
  34. 0500     // ROW IS A FUNCTION THAT STARTS AT CURRENT'ROW
  35. 0510     // USE SHIFT * TO DRAW MENU LINE
  36. 0520     ╨╥╔╬╘ ┴╘ ROW,COL: ""18"░└└└└└└└└└└└└└└└«"
  37. 0530     ╨╥╔╬╘ ┴╘ ROW,COL: ""18"  POPOVER MENU   "
  38. 0540     ╨╥╔╬╘ ┴╘ ROW,COL: ""18"½└└└└└└└└└└└└└└└│"
  39. 0550     ╨╥╔╬╘ ┴╘ ROW,COL: ""18" C = COLORS      "
  40. 0560     ╨╥╔╬╘ ┴╘ ROW,COL: ""18"½└└└└└└└└└└└└└└└│"
  41. 0570     ╨╥╔╬╘ ┴╘ ROW,COL: ""18" Q = QUIT        "
  42. 0580     ╨╥╔╬╘ ┴╘ ROW,COL: ""18"½└└└└└└└└└└└└└└└│"
  43. 0590     ╨╥╔╬╘ ┴╘ ROW,COL: ""18" OR <RETURN> KEY "
  44. 0600     ╨╥╔╬╘ ┴╘ ROW,COL: ""18"¡└└└└└└└└└└└└└└└╜"
  45. 0610     ╥┼╨┼┴╘ 
  46. 0620       DONE'POPPING:=╘╥╒┼
  47. 0630       ├┴╙┼ ╦┼┘$ ╧╞
  48. 0640       ╫╚┼╬ "C","├"
  49. 0650         SET'COLORS
  50. 0660         START'SCREEN$(1):=├╚╥$(INQ(1))
  51. 0670         START'SCREEN$(2):=├╚╥$(INQ(2))
  52. 0680         START'SCREEN$(3):=├╚╥$(INQ(3))
  53. 0690       ╫╚┼╬ "Q","╤"
  54. 0700         ╘╥┴╨ ┼╙├+
  55. 0710         ┼╬─ ""147"╘HANK ┘OU."
  56. 0720       ╫╚┼╬ ""13"" //CARRIAGE RETURN
  57. 0730         ╥┼╘╒╥╬
  58. 0740       ╧╘╚┼╥╫╔╙┼ 
  59. 0750         DONE'POPPING:=╞┴╠╙┼
  60. 0760       ┼╬─├┴╙┼ 
  61. 0770     ╒╬╘╔╠ DONE'POPPING
  62. 0780   ┼╬─╨╥╧├ POPUP
  63. 0790   //
  64. 0800   ╨╥╧├ READY 
  65. 0810     ╔╬╨╒╘ ┴╘ 25,1,0: ""18"╨RESS ╥┼╘╒╥╬ WHEN READY": POPREADY$
  66. 0820     ╨┴╟┼
  67. 0830   ┼╬─╨╥╧├ READY
  68. 0840   //
  69. 0850   ╞╒╬├ ROW 
  70. 0860     CURRENT'ROW:+1
  71. 0870     ╥┼╘╒╥╬ CURRENT'ROW
  72. 0880   ┼╬─╞╒╬├ ROW
  73. 0890   //
  74. 0900   ╨╥╧├ CLEAR'KEYS 
  75. 0910     ╫╚╔╠┼ ╦┼┘$>"" ─╧ ╬╒╠╠
  76. 0920     DUMMYESC:=┼╙├ //CLEAR STOP KEY
  77. 0930   ┼╬─╨╥╧├ CLEAR'KEYS
  78. 0940   //
  79. 0950   ╨╥╧├ SETUP ├╠╧╙┼─
  80. 0960     // SETUP BY JESSE KNIGHT
  81. 0970     ╘╥┴╨ ┼╙├-
  82. 0980     ╞╧╥ X#:=0 ╘╧ 12 ─╧
  83. 0990       ╥┼┴─ BYTE#
  84. 1000       ╨╧╦┼ $C86A+X#,BYTE#
  85. 1010     ┼╬─╞╧╥ X#
  86. 1020     ╨╧╦┼ $C7E2,$6A
  87. 1030     ╨╧╦┼ $C7E3,$C8
  88. 1040     ╨╧╦┼ $4D,╨┼┼╦($4D) ┬╔╘╧╥ $20
  89. 1050     ─┴╘┴ $A5,$4D,$29,$08,$F0,$06,$A9
  90. 1060     ─┴╘┴ $04,$05,$4D,$85,$4D,$60
  91. 1070   ┼╬─╨╥╧├ SETUP
  92. 1080   //
  93. 1090   ╨╥╧├ SET'COLORS ├╠╧╙┼─
  94. 1100     ╒╙┼ SYSTEM
  95. 1110     ╒╙┼ GRAPHICS
  96. 1120     ╨┴╟┼
  97. 1130     ╠╧╧╨ 
  98. 1140       ╨╥╔╬╘ ┴╘ 3,1: ""18"SET COLORS NOW"
  99. 1150       ╨╥╔╬╘ ┴╘ 6,1: "PRESS "18" F1 "146" BORDER COLOR"
  100. 1160       ╨╥╔╬╘ ┴╘ 8,1: "PRESS "18" F3 "146" BACKGROUND COLOR"
  101. 1170       ╨╥╔╬╘ ┴╘ 10,1: "PRESS "18" F5 "146" TEXT COLOR"
  102. 1180       ╨╥╔╬╘ ┴╘ 13,1: "PRESS "18" F7 "146"  OR "18" Q "146" QUIT COLORS"
  103. 1190       ├┴╙┼ ╦┼┘$ ╧╞
  104. 1200       ╫╚┼╬ ""133""
  105. 1210         TEXTCOLORS((INQ(1)+1) ═╧─ 16,-1,-1)
  106. 1220       ╫╚┼╬ ""134""
  107. 1230         TEXTCOLORS(-1,(INQ(2)+1) ═╧─ 16,-1)
  108. 1240       ╫╚┼╬ ""135""
  109. 1250         TEXTCOLORS(-1,-1,(INQ(3)+1) ═╧─ 16)
  110. 1260       ╫╚┼╬ ""136"","Q","╤"
  111. 1270         ┼╪╔╘
  112. 1280       ╧╘╚┼╥╫╔╙┼ 
  113. 1290       ┼╬─├┴╙┼ 
  114. 1300     ┼╬─╠╧╧╨ 
  115. 1310   ┼╬─╨╥╧├ SET'COLORS
  116. 1320   //
  117. 1330 ┼╬─╨╥╧├ POPOVER
  118.